home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / guile-ii.src / guile-ii / guile-src / slib / sc4sc3.scm < prev    next >
Encoding:
Text File  |  1994-05-25  |  1.2 KB  |  36 lines
  1. ;"sc4sc3.scm" Implementation of rev4 procedures for rev3.
  2. ;Copyright (C) 1991 Aubrey Jaffer
  3. ;
  4. ;Permission to copy this software, to redistribute it, and to use it
  5. ;for any purpose is granted, subject to the following restrictions and
  6. ;understandings.
  7. ;
  8. ;1.  Any copy made of this software must include this copyright notice
  9. ;in full.
  10. ;
  11. ;2.  I have made no warrantee or representation that the operation of
  12. ;this software will be error-free, and I am under no obligation to
  13. ;provide any services, by way of maintenance, update, or otherwise.
  14. ;
  15. ;3.  In conjunction with products arising from the use of this
  16. ;material, there shall be no use of my name in any advertising,
  17. ;promotional, or sales literature without prior written consent in
  18. ;each case.
  19.  
  20. ;;;; peek-char, number->string, and string->number need to be written here.
  21.  
  22. ;;; APPEND, +, *, -, /, =, <, >, <=, >=, MAP, and FOR-EACH need to
  23. ;;; accept more general number or arguments.
  24.  
  25. (define (list? x)
  26.   (let loop ((fast x) (slow x))
  27.     (or (null? fast)
  28.     (and (pair? fast)
  29.          (let ((fast (cdr fast)))
  30.            (or (null? fast)
  31.            (and (pair? fast) 
  32.             (let ((fast (cdr fast))
  33.                   (slow (cdr slow)))
  34.               (and (not (eq? fast slow))
  35.                    (loop fast slow))))))))))
  36.